home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / speak / src / rec.bas < prev    next >
BASIC Source File  |  1993-07-08  |  1KB  |  38 lines
  1. 1000 '------------------------------------------------------------
  2. 1010 '  音声データ作成
  3. 1020 '------------------------------------------------------------
  4. 1030 CLS:MOUSE 0
  5. 1040 DIM KOE%(1008)
  6. 1050 PRINT "あなたは男性ですか？  女性ですか？"
  7. 1060 INPUT "男性なら1 女性なら2を入力してください ",SEX
  8. 1070 IF SEX=1 THEN PW=1.5! ELSE PW=.6!
  9. 1080 PRINT :PRINT "それでは声の録音を始めましょう":PRINT 
  10. 1090 SHELL "MD \VOICE"
  11. 1100 SHELL "CD \VOICE"
  12. 1110 '
  13. 1120 FOR I=JIS("ぁ") TO JIS("")
  14. 1130  PRINT "「"+KNJ$(I)+"」"+"を録音します"
  15. 1140  PRINT "  マウスを左クリックして発音してください"
  16. 1150  GOSUB *CLICK
  17. 1160  PCMREC KOE%,8000
  18. 1170  PRINT "  マウスを左クリックして確認してください"
  19. 1180  GOSUB *CLICK
  20. 1190  PCMPLAY KOE%,127
  21. 1200  PRINT "  やり直しならマウスを右クリックしてください"
  22. 1210  GOSUB *CLICK:IF C=-2 THEN 1130
  23. 1220  KOE%(12)=KOE%(12)*PW
  24. 1230  SAVE@ KNJ$(I)+".SND",KOE%
  25. 1240 NEXT
  26. 1250 FOR I=16 TO 1008:KOE%(I)=0:NEXT
  27. 1260 SAVE@ "　"+".SND",KOE%:SAVE@ "ー"+".SND",KOE%
  28. 1270 SAVE@ "「"+".SND",KOE%:SAVE@ "」"+".SND",KOE%
  29. 1280 SAVE@ "？"+".SND",KOE%:SAVE@ "！"+".SND",KOE%
  30. 1290 SAVE@ "～"+".SND",KOE%:SAVE@ "☆"+".SND",KOE%
  31. 1300 END
  32. 1310 '
  33. 1320 *CLICK
  34. 1330  C=0
  35. 1340  WHILE C=0:C=MOUSE(2,0)+MOUSE(2,1)*2:WEND
  36. 1350  WHILE MOUSE(2,0)<>0 OR MOUSE(2,1)<>0:WEND
  37. 1360 RETURN
  38.